0 REM REM"[141][145] => DISK UTILITY <=[141] BY[141][156] JIM[141][158] BRANBERG[141] REV[144] 2/4/85  [141][141][159]
5 [151]53280,6:[151]53281,1
10 [153]"LOAD                          POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS                          WAIT";
11 [153]" STR$ISK (null)TILITY"
15 R$[178][199](13):[153][199](14)" 1. (null)CRATCH"R$" 2. (null)ENAME"R$" 3. (null)IEW
20 POKE198,.:PRINT" 4. [211]END [196][207][211] COMMAND"R$" 5. [196]ISK DIRECTORY"R$" 6. [198]ORMAT DISK
22 [153]" 7. (null)NSCRATCH"R$" (null)RESS A NUMBER:
24 GETZ$:IFZ$=""GOTO24
25 Z=VAL(Z$):IFZ<1ORZ>7GOTO24
30 IFZ>3GOTO55
50 INPUT"[145] [198]ILE NAME      [157][157][157][157][157]";F$
55 OPEN15,8,15
60 ONVAL(Z$)GOTO130,135,80,65,155,260,400
65 PRINT"[147] E[146]RROR CHANNEL[141][141] I[146]NITIALIZE[141][141] V[146]ALIDATE
66 [133]" RIGHT$NPUT STR$(null)(null) COMMAND ";F$:[139]F$[178]""[137]560
67 F$[178][200](F$,1):[139]F$[178]"E"[137]115
70 [152]15,F$:[141]115:[137]560
80 [133]" ASCILE TYPE ";T$:T$[178][200](T$,1)
84 [139]T$[179][177]"S"[175]T$[179][177]"P"[175]T$[179][177]"U"[167][153]"ONONON":[137]80
88 [151]53280,.:[151]53281,.:[159]1,8,5,"0:"[170]F$[170]","[170]T$[170]",R":[153]"LOAD LEFT$IT (null)(null)ATNLENVAL TO PAUSE,WAIT";
89 [141]605:[141]115
90 [161]#1,A$:[141]235:[139]K[178]1[167][151]198,.:K[178].:[146]198,1:[129]T[178].[164]199:[130]
95 [139]ST[179][177].[167][153]:[153]:[133]"HIT RETURNWAITSTOP";Q$:[160]1:[137]560
100 [153]A$;:[137]90
115 [132]15,A$,B$,C$,D$
120 [139][197](A$)[177].[176]F$[178]"E"[167][153]" "A$" "B$," "C$,D$:[129]T[178]1[164]3000:[130]:[137]560
125 [142]
130 [152]15,"S0:"[170]F$:[141]115:[137]560
135 [133]" (null)EW NAME ";NF$
140 [152]15,"R0:"[170]NF$[170]"="[170]F$:[141]115:[137]560
155 Z%[178].:F[178].:[152]15,"I"
156 [159]1,8,2,"$":[129]X[178]1[164]141:[161]#1,Q$:[130]:T$(.)[178]"DEL":T$(1)[178]"SEQ":T$(2)[178]"PRG"
160 T$(3)[178]"USR":T$(4)[178]"REL":J[178]17:[141]215:N$[178]E$:J[178]2:[141]215:I$[178]E$:[161]#1,Q$:J[178]2
165 [141]215:O$[178]E$:[129]L[178]1[164]88:[161]#1,Q$:[130]
170 [153][199](147)"DISK NAME:WAIT"N$,"ID:WAIT"I$,"OS:WAIT"O$:[141]245
180 [129]P[178]1[164]8:[161]#1,T$,Q$,Q$:[139]T$[178]""[167]T$[178][199](128)
185 J[178]15:[141]215:N$[178]E$:[161]#1,Q$,Q$,Q$,Q$,Q$,Q$,Q$,Q$,Q$,L$,H$
190 L[178][198](L$[170][199](.))[170]256[172][198](H$[170][199](.)):[139]L[178].[167]210
195 [139]ST[167]FR%[178]664[171]F%:[137]600
205 F1$[178]" "[170][196](F):F$[178][201](F1$,3)
206 [153]F$L;[163]8)T$([198](T$)[171]128):[153][163]13)"ON"N$:[139]P[179]8[167][161]#1,Q$,Q$
207 [139][198](T$)[177]128[167]F%[178]F%[170]L
208 Z%[178]Z%[170]1:[139]Z%[178]18[167][151]198,.:[153][163]13)" HIT ANY KEY ":[146]198,1:Z%[178].:[153]"LOAD":[141]604
210 F[178]F[170]1:[130]:[137]180
215 E$[178]"":[129]L[178].[164]J:[161]#1,Q$
220 [139]Q$[179][177][199](96)[167][139]Q$[179][177][199](160)[167]E$[178]E$[170]Q$
230 [130]
235 P%[178][194](203):[139]P%[178]48[167][160]1:[137]560
237 [139]P%[179][177]48[175]P%[179][177]64[167]K[178]1:[146]203,64
240 [142]
245 [153]"  #WAIT BLKWAIT TYPWAIT  NAMEWAIT":[142]
250 [153]"LOAD LENATN(null)(null)RIGHT$(null)(null): (null)HIS OPTION WILL FORMAT YOUR"R$" DISK AND  ERASE WAIT";
251 [153]" ANYTHING THAT MAY
253 PRINT" ALREADY BE THERE.
255 [153]" LEFT$IT (null)VAL(null)(null)(null)(null) TO ABORT.":[142]
260 [141]250:[153]"ONONONONON VALNTER STR$RIGHT$(null)(null) NAME:":[133]" ";IN$:[139]IN$[178]""[137]560
265 [153]" (null)NIQUE STR$RIGHT$(null)(null) RIGHT$.STR$.:   ":[133]" ";ID$:[139][195](ID$)[179]2[167][153]"ONONONONON":[137]265
270 [152]15,"N0:"[170]IN$[170]","[170][200](ID$,2):[141]115:[137]560
400 [153]"LOAD (null)OU WILL NEED THE DIRECTORY # FOR THE"R$" FILE YOU WISH ";
402 [153]"TO UNSCRATCH."R$" (null)O FIND THIS INFO ";
405 [153]"RETURN TO THE MAIN"R$" MENU & USE OPTION 5 TO LIST ";
410 [153]"THE DISK"R$" DIRECTORY. (null)HE # WILL BE IN COLUMN"R$" ONE NEXT TO THE NAME ";
415 [153]"OF YOUR DELETED"R$" FILE."R$" (null)EMEMBER IT & RETURN TO THIS OPTION.":[141]255
420 [133]" ASCILE # ";U$:[139]U$[178]""[137]560
425 U[178][197](U$):[139]U[179].[176]U[177]143[167]400
430 R[178][181](U[173]8)[170]1:BS[178](U[171]((R[171]1)[172]8))[170]1:[140]:[129]X[178]1[164]R:[135]S:[130]
451 [139]BS[178]8[167]BP[178]226
452 [139]BS[178]7[167]BP[178]194
453 [139]BS[178]6[167]BP[178]162
454 [139]BS[178]5[167]BP[178]130
455 [139]BS[178]4[167]BP[178]98
456 [139]BS[178]3[167]BP[178]66
457 [139]BS[178]2[167]BP[178]34
458 [139]BS[178]1[167]BP[178]2
500 [131]1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18
510 [153]"LOAD  1. (null)EQUENTIAL"R$"  2. (null)ROGRAM"R$"  3. (null)SER"R$"  4. (null)ELATIVE
520 PRINT"  [215]HICH TYPE FILE ?
525 [161]A$:[139]A$[178]""[167]525
530 A[178][197](A$):[139]A[179]1[176]A[177]4[167]525
535 B[178]A[170]128:[152]15,"I":[159]8,8,8,"#":[152]15,"U1:"8;0;18;S
540 [152]15,"B-P:"8;BP:[152]8,[199](B);:[152]15,"U2:"8;0;18;S
550 [160]8
560 [160]15:[138]
600 [153]""FR%"BLOCKS FREE"R$" LEFT$IT F7WAIT TO CONTINUE":[146]203,3:[160]1:[137]560
604 [153]" (null)RESS";:[141]605:[141]245:[142]
605 [153]" '\' TO ABORT.WAIT":[142]